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CAUTION 


READ  THIS  MANUAL  COMPLETELY   BEFORE 
ATTEMPT  TO  INSTALL  THE  SYSTEM. 


YOU 


ASSOCIATED  DOCUMENTS 

Consult  the  RSX-11  FORTRAN  IV  User's  Guide  for  information  on  using 
the  system.  Consult  the  PDP-11  FORTRAN  Language  Reference  Manual  for 
details  on  the  FORTRAN  language  as  implemented  in  FORTRAN  IV. 


DOCUMENTATION  CONVENTIONS 


This  installation  guide  uses  the  following  documentation   onventions. 


$ 


ALTMODE 


The  symbol  $  represents  the 
nonprinting  ALTMODE  key.  When 
specified,  this  key  is  pressed  in 
place  of  the  RETURN  key.  Except 
where  ALTMODE  is  specified,  all 
commands  terminate  with  a  carriage 
return. 


CNTRL  Z 


The  notation  "z  (where  Z  is  an 
alphabetic  character)  results  from 
pressing  the  CNTRL  key  and  the 
appropriate  letter  simultaneously. 


MCR> 


underline 


Underlined   text    in 
indicates   information 
the  system.   All  other 
is  typed  by  the  user. 


examples 
printed  by 
information 


CHAPTER  1 
INTRODUCTION 


This  manual  provides  complete  instructions  for  installing  FORTRAN  IV 
on  the  RSX-llM,  RSX-llM-PLUS,  and  VAX/VMS  (under  AME)  operating 
systems. 

Read  all  the  chapters  relevant  to  your  operating  system  before  you 
attempt  to  install  FORTRAN. 


1.1   SYSTEM  REQUIREMENTS 

System  components  required  for  a  proper  inst:.llation  of  FORTRAN  IV 
depend  on  the  operating  system  on  which  the  distribution  kit  is  to  be 
installed. 

The  component  requirements  for  the  RSX-llM,  RSX-llM-PLUS,  and  VAX/VMS 
(under  AME)  operating  systems  are  given  below. 


1.1.1   RSX-llM 

The  software  included  in   this  distribution   requires  the   followi 


system  components  for  normal  use: 
•  RSX-llM  operating  system 


ng 


V      imum  8K-word  partition  for  compilation 

nimum  275  blocks  of  contiguous  on-line  disk  storage  for   the 
xRipiler  task 

linimum  175  blocks  of  on-line  disk  storage  for  the  Object  Time 
System  Library  (minimum  180  blocks  of  on-line  disk  storage  for 
the  SYSLIB  alone) 


1.1.2   RSX-llM-PLUS 

The  software  included  in   this  distribution   requires  the   following 
system  components  for  normal  use: 

•  RSX-llM-PLUS   operating    system 

•  Minimum  8K-word   partition    for   compilation 

•  Minimum  275    blocks   of   contiguous   on-line  disk   storage    for      the 
compiler    task 
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•  Minimum  175  blocks  of  on-line  disk  storage  for  the  Object  Time 
System  Library  (minimum  240  blocks  of  on-line  disk  storage  for 
the  SYSLIB  alone) 


1.1.3  VAXAMS  Under  AMB 

The  software  included  in   this  distribution   requires  the   following 
system  components:  ,  ,?  -  ^ 

•  VAX/VMS  Operating  System  with  AME 

•  Minimum  8K-word  partition  for  compilation 

•  Minimum  275  blocks  of  contiguous  on-line  disk  storage  for 
compiler  task 

•  Minimum  180  blocks  of  on-line  disk  storage  for  the  Object  Time 
System  Library  (minimum  370  blocks  of  on-line  disk  storage  for 
the  SYSLIB  alone) 


1.2   DISTRIBUiiON  FILES 

The  FORTRAN  IV  software  kits  contain  files  that  can  be  used  to  build  a 
FORTRAN  IV  system  on  RSX-llM,  RSX-llM-PLUS,  or  VAX/VMS. 


1.2.1    SX-llM,  or  RSX-llM-PLUS 

The  FORTRAN  IV  software  is  supplied  on  one  RK05,  RK06,  RK07,  RLOl ,   or 
RL02  disk  cartridge  or  one  9-track  magnetic  tape. 

The  FORTRAN  IV  distribution  media  contain  the  compiler  and  Object  Time 
System  (OTS)  files  listed  in  Sections  1.2.1.1  and  1.2.1.2. 


1.2.1.1   UFD  [11,41] 

FOR. OLE      FORTRAN  c^.mpiler  object  module  library 


FORUM. ODL 
F0R11M.CMD 
F0R11U.CMD 


Compiler  overlay  description  file   for  RSX-llM  and 
RSX-liM-PLUS 

Compiler   build   command   file   for  RSX-llM  mapped 
systems  and  RSX-IJ  -PLUS  systems 

Co-ipiler  build  command   file   for   RSX-llM  unmapped 
systems 


# 


1.2.1.2   UFD  [11,42] 

FOROTS.OBJ   OTS  Concatenated  object  lodules 

FORNHD.OBJ   OTS  concatenated   object   modules   specific   to 
no-optional  hardware  version 

FOREAE.OBJ   OTS  concatenated  object  modules   specific   to  EAE 
version 


• 
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FORE IS. OBJ 

FORFIS.OBJ 

FORFPU . OBJ 

SHORT. OBJ 
NOV XR. OBJ 
VIRP.OBJ 
FORTST.FTN 
FORRES. MAC 


OTS  concatenated  object  modules  specific  to  EIS 
version 

OTS  concatenated  object  modules  specific   to  FIS 
version 

OTS  concatenated   object  modules   specific   to   FPP 
version 

OTS  short  error  text  module 

OTS  module  for  no  virtual  array  support 

OTS  module  for  virtual  array  support 

FORTRAN  test  program  for  verification  purposes 

OTS  resident-library  global  name  file 


1.2.2   VAX/VMS 

The  FORTRAN  IV  software  is  supplied  on  eitner  three  RXOl  floppy 
diskettes  or  three  TU58  diskettes.  This  kit  contains  the  compiler  and 
Object  Time  System  (OTS)  files  listed  in  Sections  1.2.2.1,  1.2.2.2, 
and  1.2.2.3. 


1.2.2.1   Diskette  1  -  VNSllNRl 

V*IS11MRI.C0H  Installation  command  file 
FORVMS.CHD   Compiler  build  command  file  for  VMS 

Compiler  overlay  description  file  for  vns 
Parameter  file  for  inline  EAE  option 
Parameter  file  for  inline  EIS  option 
Parameter  file  for  inline  PIS  option 
Parameter  file  for  threaded  THR  option 
FORRES. MAC   OTS  resident  library  global  name  file 
rOMTST.FTN   FORTRAN  test  program  for  verification  purposes 


FORBLD.OOL 
EAE. OPT 
EIS. OPT 
FIS. OPT 
THR. OPT 


1.2.3.2   Oisiiette  2  -  VM811P0RA 

POR.OLB      FORTRAN  coMpiler  object  module  library 


^ 


1.2.2.3      Dlsk«rt«   3   >   VnSUPOIIB 

FCROTS.06J        OTS   concatenated   object  modules 

FORMHD.OBJ        OTS      concatenated        object        modules 
iio-opticn«l    hardware  version 


spec 1 f 1 c        to 
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PORCAE.OBJ 

PORE IS. OBJ 

FORFIS.OBJ 

FOR FPU. OBJ 

SHORT. OBJ 
NO V I R.  OBJ 
VIRP.OBJ 


mTRODUCTIOH 


OTS  concatenated   object   aodules   specific   to   EAE 
version 

OTS  concatenated   object   modules   specific   to   EIS 
version 

OTS  concatenated   object   Modules   specific   to   FIS 
version 

OTS  concatenated   object   nodules   specific   to   FPU 
version 

OTS  short  error  text  module 

OTS  nodule  for  no  virtual  array  support 

OTS  nodule  for  virtual  array  support 
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CHAPTER  2 
INSTALLATION  PLANNING 


This  guide  covers  the  various  options  available  to  you  for  building 
the  FORTRAN  IV  system  and  tailoring  it  to  the  particular  needs  of  each 
installation.  This  chapter  presents  sone  of  the  alternatives  you  must 
consider  before  you  start  the  installation  process. 


2.1   SELECTING  THE  "DEFAULT*  FORTRAN 

Those  installations  that  wish  to  run  both  FORTRAN  IV  (FOR)  and 
FORTRAN-77  on  the  same  system  must  determine  tirhether  FOR  or  F77  is  to 
be  the  "default"  FORTRAN.   This  decision  must  be  made  for  two  reasons: 

1.  When  building  a  task,  object  modules  produced  by  the  FOR 
compiler  or  from  the  FOR  OTS  must  not  be  combined  with  object 
modules  produced  by  the  F77  compiler  or  from  the  F77  OTS. 


The   F77   OTS   and   the   FOR   OTS   cannot   be   in 
object-module  library. 


the 


same 


Normally,  "the"  FORTRAN  OTS  is  part  of  the  s/stem  object-module 
library  I1,1]SYSLIB.0LB.  The  Task  Builder  searches  this  library 
automatically  when  linking  a  task.  Either  the  FOR  OTS  or  the  F77  OTS 
can  be  in  this  library. 

If  your  installation  intends  to  use  both  FORTRAN  systems,  you  must 
build  a  separate  library  to  contain  one  of  the  Object  Time  Systems.  A 
programmer  must  name  this  library  explicitly  in  the  Task  Builder 
command  line  whenever  it  is  to  be  used.  The  Task  Builder  searches  the 
library  specified  in  the  command  line  before  searching  SYSLIB. 

When  you  make  this  choice  for  a  given  environment,  consider  which 
FORTRAN  should  be  slightly  easier  to  use  —  probably  the  one  that  will 
be  used  most  often.  The  system  whose  OTS  is  in  SYSLIB  will  not 
require  an  explicit  OTS  library  reference  at  task-build  time. 


2.1.1   Selecting  FORTRAN  IV  As  the  Default  FORTRAN 


If  you  select  FORTRAN  IV  as  the  default  FORTRAN,  you  can 
use   a   previously   installed  FORTRAN-77  system  in  either 


continue   to 

.        . ..  -, ...  .  of  two  ways: 

build  a  separate  library  containing  only  FORTRAN-77  modules  (usually 
[l,l]F770TS.OLB) ,  or  rename  the  current  SYSLIB.  If  FORTRAN-77  has  not 
been  installed,  refer  to  the  FORTRAN-77  Installation  Guide  for 
procedures  by  which  to  include  its  OTS  in  a  separate  OTS  Library. 
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2.1.2  Selecting  FORTRAN-77  As  the  Default  FORTRAN 

If  FORTRAN-77  is  to  be  the  default  FORTRAN,  follow  the  F77 
installation  procedures  for  including  its  OTS  in  SYSLIB.  Then  carry 
out  the  instructions  to  build  a  separate  FORTRAN  IV  OTS  library. 


2.2   SELECTING  FORTRAN  IV  COMPILER  OPTIONS 

The  following  options  are  available  when  you  build   the  FORTRAN   iv 
compiler : 


1. 
2. 
3. 

4. 


Specifying  listing-device  lines  per  page  for  installations 
using  non-U. S. -Standard  paper  stock 

Specifying  compiler  command  switch  default  settings  different 
from  the  DIGITAL-provided  defaults 

Specifying  the  amount  of  memory  used  for  compilation  in  a 
system-controlled  partition,  in  order  to  accommodate  the 
compilation  of  large  program  units 

Specifying  the  default  type  of  code  to  be  generated  by  the 
compiler  (inline  or  threaded) 


A  programmer  can  edit  the  compiler  build  file  to  select  any  of  the 
above  options.  Documentation  within  the  file  describes  the  options 
available  and  any  limitations  on  choices  (see  Appendix  A). 


2.3   SELECTING  FORTRAN  IV  OTS  OPTIONS 

You  can  select  OTS  arithmetic  hardware  options  and  support  for  virtual 
arrays. 


2.3.1  Selecting  OTS  Arithmetic  Hardware  Options 

The  FORTRAN  IV  system,  as  supplied,  contains  components  for  support  of 
all  PDP-11  arithmetic  hardware  options.  You  must  generate  the  Object 
Time  System  to  conform  to  the  options  present  on  the  target  system 
Choose  the  appropriate  file  in  Table  2-1  in  Section  2.3.2.  Use  the 
first  file  in  the  list  that  is  appropriate  to  the  hardware  options 
installed  on  the  target  system.  If  new  hardware  options  are  added  to 
the  system  at  a  later  date,  a  programmer  ca'>  rebuild  the  OTS  library 
to  conform  to  the  change. 


2.3.2  Selecting  VIRTUAL  Array  Support 

You  can  select  VIRTUAL  array  support  as  an  option  on   systems   that 
support  the  memory  management  directives. 


1. 


2. 


If  VIRTUAL  array  support  is  to  be  included  in  the  OTS 
Library,  you  must  include  the  module  VIRP.OBJ  when  you  build 
the  library. 

If  the  target  system  does  not  support  t  e  memory  management 
directives,  you  must  include  the  module  NOVIR.OBJ  in  the  OTS 
Library. 


2-2 


INSTALLATION  PLANNING 


Table  2-1:   Hardware  Options  Required  for  OTS  Files 


Target  System 


Arithmetic  Hardware  Options 


OTS  Pile 


PDP-11/70,11/60,11/55   FP11-A,FP11-B,FP11-C  floating- 
11/50,11/45,11/34   point  processor 


PDP-11/40,11/35 
LSI-11 


KEll-F  floating  instruction  set 
KEVll  extended  arithmetic  chip 


PDP-11/70,11/60,11/55  No  floating-point  hardware 

11/50,11/45,11/34;  (EIS  is  standard  on  these 
VAX/VMS  (under  AME)     processors) 


PDP-11/40,11/35 
Any 

Any 


KEll-E  extended  instruction  set 

KEll-A  or  KEll-B  extended 
arithmetic  element 


FORFPU.OBJ 

FORFIS.OBJ 
FORFIS.OBJ 

FOREIS.OBJ 

FOREAE.OBJ 


No  optional  arithmetic  hardware   FORNHD.OBJ 


2.4   INSTALLATION  PROCEDURES 

If  you  are  Installing  FORTRAN  IV  to  replace  an  earlier  version,   take 
the  following  preliminary  steps: 

1.  If  the  compiler  is  installed  in  the  RSX-llM  or  RSX-llM-PLUS 
system,  remove  it: 

REM  ...FOR 

2.  Delete  the  following  files  from  the  system  disk: 

[ 1,50] FOR. TSK  on  Unmapped  RSX-llM 

[l,54]FOR.TSK  on  Mapped  RSX-llM  or  RSX-llM-PLUS 

SYS$SYSTEM:FOR.EXE  on  VAX/VMS 

3.  If  you  intend  to  incorporate  the  OTS  into  SYSLIB.OLB,  obtain 
a  fresh  copy  of  SYSLIB  from  the  operating  system  distribution 
kit.  OTS  modules  cannot  be  adde^  to  a  library  containing  a 
previous  version  of  the  OTS. 


NOTE 

The  FORTRAN  OTS  library  contains  224  (no 
VIRTUAL  support) /235 (VIRTUAL  support) 
modules  and  825  (no  VIRTUAL  support) 
/922  (VIRTUAL  support)  entry  points. 
(This  must  be  taken  into  account  if  the 
FORTRAN  OTS  is  going  to  be  included  in 
the  SYSLIB.) 


2.4.1   RSX-llM  and  RSX-llM-PLUS 

Use  a  privileged  terminal  for  all  operations  you  use  to  build   the 
FORTRAN  IV  system. 
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You  will  use  various  RSX-llM  utility  programs  to  build  the  FORTRAN  IV 
system.  All  the  examples  in  this  manual  assume  that  the  utilities  are 
not  installed.   The  RUN  $xxx  command  is  shown: 

,RUN  $PIP 

The  following  directories  are  required  for  the  build  process  on 
RSX-llM: 

[1,1],  [1,20],  [1,30],  [1,50],  for  unmapped  systems  on  RSX-llM 
[1,1],  [1,24],  [1,34],  [1,54],  for  mapped  systems  on  RSX-llM  or 

RSX-llM-PLUS 

You  must  create  any  directory  that  is  not  on  the  system  volume. 


2.4.2   VAX  AMS 

Log  in  under  the  privileged  system  manager's  account. 

The  following  directories  are  required  for   FORTRAN   IV   installation: 
SYS$SYSTEM,  SYS$LIBRARY. 
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CHAPTER  3 
INSTALLATION  ON  RSX-llM  AND  RSX-llM-PLUS 


This  chapter  covers  the  installation  procedures  required  for  RSX-llM. 
Section  3.1  describes  the  installation  procedures  for  the  9-track 
magnetic  tape  distribution.  Section  3.2  describes  the  installation 
procedures  for  the  RK05,  RK06,  RK07,  RLOl,  or  RL02  disk  cartridge 
distribution. 

The  basic  installation  proceC^re    for  FORTRAN  IV  consists  of: 

1.  Building  the  FORTRAN  compiler   task   from   an   object  module 
library 

2.  Building  the  FORTRAN  Object  Time  System  library  from  object 
files 

The  following  sections  provide  detailed  procedures. 


3.1   INSTALLATION  FROM  MAGNETIC  TAPE  DISTRIBUTION 

3.1.1   Preparations 

Mount  the  distribution  magnetic  tape  on  unit  0,  and  position  the  tape 
at  load  point.  If  the  magnetic  tape  handler  is  not  loaded,  make  it 
available  by  typing  the  following  command: 

>LOAD  MT: 

Note  that  the  device  code  for  some  9-track  magnetic  tape  units  is  MM:. 
If  you  are  using  such  a  unit,  substitute  MM:  for  MT:  in  the 
commands. 

For  RSX-llM-PLUS  only,  mount  the  magnetic  tap"  by  typing: 
>MOU  MT0:/FOR 


3.1.2   Building  the  Compiler 

You  build  the  compiler  from  an  object  module-library  supplied  on   the 
distribution  media. 
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3.1.2.1  RSX-llM  Unaapped  SystMis  -  Type  the  following  commands  to 
transfer    the    required    files: 

>SET   /UIC«[1,20J 

>RUN    $FLX 

FLX>«MTO  :  [ 200  ,  200  ]  FOR .  OLB ,  FORUM .  ODL ,  FORI lU .  CMD/DO 

FLX>"Z 

At  this  point  you  should  edit  the  compiler  task-build  command  file  to 
select    installation  options,    as  described    in   Appendix    A. 

Build    the   compiler   as    follows: 

>RUN    $TKB 

TKB>gFORllU 

TKB>*Z 

You  should  keep  the  compiler  object-module  library  on  your  system  so 
that  it  may  be  patched  with  PAT  should  a  patch  be  needed  in  the 
future. 

You  should  retain  the  edited  command  file  and  the  compiler  t«sk-build 
map  for  future  reference. 


3.1.2.2   RSX-llM  and  RSX11H-?LUS  Mapped  Systeas  -  Type   the   following 
commands  to  transfer  the  required  files: 

>SET  /UIC-{1,24] 
>RUN  $FLX 

FLX>«MTO: [200 ,200] FOR. OLB, FORllM, ODL, FORllM. CMD/DO 
FLX>*Z 

At  this  point  you  should  edit  tht.  compiler  task-build  command  file   to 
select  installation  options,  as  described  in  Appendix  A. 

Build  the  compiler  as  follows: 

For  R8X-11N:         For  R8X>ilM-PLU8: 


>RUN  $TKB 

TKB>§F0R11M 

TKB>*Z 


>RUN    $TKB 

TKB>gF0RllM 

TKB>"Z 


You  should  keep  the  compiler  object-module  library  on  your  system  so 
that  it  may  be  patched  with  PAT  should  a  patch  be  needed  in  the 
future. 

You  should  retain  the  edited  command  file  and  compiler  task-build  map 
Cor    future   reference. 


3.1.3     Building   the  OfS 

Copy   the    required   OTS    files    from    the  magnetic    tape    to    the   system   disk. 

>SET   /UIC-[1,1| 

>RW    SFLX  

FlX  >-MT0  :  [  200  ,  200  J  FOROTS  .  OBJ  ,  FOR???  .  OBJ ,  SHORT .  OBJ  ,  ^  ORTST.  FTN/DO 

rLX>-MTO: ( 200, 200 ]VIRP. OBJ, NQVIR. OBJ, FORRES. MAC/DO 

FLX>'2 


e 
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FOR???. OBJ  refers  to  OTS  arithnetic  hardware  options  described  In 
Section  2.3.1  and  Table  2-1. 

If  you  have  decided  to  Incluf'  the  FORTRAN  OTS  in  SYSMB,  type  the 
following  commands  to  add  tne  FORTRAN  IV  OTS  into  the  system  library 
(please  read  Section  2.4  first): 

>RUN  $LBR 

LBR>SYSLIB/RP=SHORT 

LBR>SYSLI B/DG ; $ERTXT/RP»FOROTS . FOR???  « VI RP 

ENTRY  POINTS  DELETED; 

$  ERTXT 

LBR>"Z 

If  you  decide  to  put  the  FORTRAN  IV  OTS  in  a  separate  library,  type 
the  following  commands  to  build  a  separate  FORTRAN  IV  OTS  library: 

>RUN  $LBR 

LBR>FOROTS/CR:  :1024.=»SHORT 

LBR>FOROTS/DG : $ERTXT»FOROTS , FOR??? , VIRP 

ENTRY  POINTS  DELETED; 

?ERTXT 

LBR>"Z 


NOTE 

If  your  system  does  not  support  memory 
management  directives  or  if  you  do  not 
want  VIRTUAL  array  support,  replace  VIRP 
with  NOVIR  in  the  above  command. 


3.2   INSTALLATION  PROM  DISK  CARTRIDGE 

Use  the  following   installation   procedures   for   the  disk   cartr 
distribution.   If  the  system  disk  is  not  an  RK05,  RK06,  RK07,  RLOl 
RL02,  place  the  distribution  disk  in  drive  0.   If  the  system  disk 
an   RK05,   RK06,   RK07,  RLOl,  or  RL02,  use  drive  0  for  the  system 
and  drive  1   for   the  distribution  disk.    Procedures   for   the 
configurations  are  the  same;   only  the  unit  assignments  are  differ 
The  designation  "DKn"  refers  to  the   disk   drive   unit   on  which 
distribution   disk   Is   placed.   For  each  step,  use  OKO  or  DKl  for 
RK05  distribution.   Use  DM0  or  DM1  for  the  RK06  or  RK07   dlstrlbut 
Use  DLO  or  OLl  for  the  RLOl  or  RL02  distribution. 


Idge 

,  or 
Is 

disk 
two 
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3.2.1   Preparations 

Load  the  disk  handler  if  it  is  not  already  resident: 

>LOA  DK: 
Mount  the  volume: 

>MOU  DK0:FOR 
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3.2.2  Buildin9  the  Conpiler 

You  build  the  compiler  from  am  object-module  library  on  the 
distribution  disk.  Copy  the  compiler-build  files  from  the 
distribution  disk  to  the  system  disk  as  shown. 

For  RSX-llM  unmapped  systems: 

>SET  /UIC«[1,201 

>RUN  $PIP 

PIP>=DKO : [ 1 1 , 4 1 ] FOR . OLB , FOR 1 IM . ODL , FOR 1 lU . CMD 

PIP>"2 

For  RSX-llM  and  RSX-llM-PLUS  mapped  systems: 

>^SET  /UIC=[1,24] 

>RUN  $PIP 

PIP>»DKO;  [ll,41]F0R.0LB,F0RllM.0DL,f  -)R11M.CMD 

PIP>"Z 

At  this  point  you  should  edit  the  compiler  task-build  command  file 
(F0R11M.CMD  or  F0R11U.CMD)  to  select  installation  options,  as 
described  in  Appendix  A. 

Build  the  compiler  as  follows: 

For  RSX-llM  unmapped  systems: 

>RUN  $TKB 
TKB>  eFORllU 
TKB>  *Z 

For  RSX-llM  mapped  systems: 

>RUN  $TKB 
TKB>  §F0R11M 
TkB>  "Z 

For  RSX-llM-PLUS  systems: 

>RIIN  $TKB 

TKB>#F0R11M 

TKB>"Z 

Save  a  copy  of  the  compiler  object  module  library  on  your  system  for 
patching  with  PAT  should  a  patch  be  needed  in  the  future.  You  should 
retain  the  edited  command  files  and  the  compiler  task-build  map  for 
future  reference. 


3.2.3  Building  the  OTS 

Copy  the  files  from  the  distribution  disk: 

>SET  /UIC-[1,11 

>^RUN  $PIP 

PIP> »DKO : 1 1 1 , 42 ] FOROTS . OBJ , FOR?  ?? , SHORT , FORTST . FTN , VI RP . OBJ , NOV! R . OBJ 

PIP>-DKO: til, 42] FORRES. MAC 

PIP>  *Z 

>DMO  DKO: 

FOR???. OBJ  refers  to  OTS  arithmetic  hardware  options  described   in 
Section  2.3.1  and  Table  2-1. 
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If  you  have  decided  to  include  the  FORTRAN  IV  OTS  in  SYSLIB,  type  the 
following  commands  to  add  the  FORTRAN  iV  OTS  into  the  system  library 
(read  Section  2.4  first): 

>RUN  $LBR 

LBR>SYSLIB/RP=SHORT 

LBR>SYSLIB/DG : $ERTXT/RP=FOROTS , FOR??? , VIRP 

ENTRY  POINTS  DELETED; 

fERTXT 

LBff>~^Z 

If  you  decide  to  put  the  FORTRAN  IV  OTS  in  a  separate  library,  type 
the    following    commands    to   build   a    separate   FORTRAN    IV   OTS    library: 

>SET   /UIC[1,1] 

>RUN    $LBR 

LBR>FOROTS/CR: :1024.=SHORT 

LBR>FOROTS/DG:$ERTXT=FOROTS, FOR???, VIRP 

ENTRY  POINTS  DELETED: 

$ERTXT 

LBR>  "Z 


If  your 
Memory 
do   not 
replace 
command. 


NOTE 

system   does   not   support   the 

Management   Directives  or  if  you 

want   VIRTUAL  array   support, 

VIRP  with   NOVIR   in  the  above 


3.3   INSTALLING  THE  COMPILER 

Yoi  install  the  FORTRAN  compiler  as  follows: 

RSX-llM  unmapped  systems: 

>INS  [1,50] FOR 
RSX-llM  and  RSX-llM-PLUS  mapped  systems: 

>INS  (1,54] FOR 
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INSTALLATION  ON  VAX/VMS  UNDER  AMB 


4.1   INSTALLATION  ON  VAX/VMS  UNDER  AME 

Before  beginning  this  installation  procedure,  note  that  some  of  the 
hardware  options  provided  for  both  the  compiler  and  the  OTS  library  do 
not  exist  on  VAX/VMS  under  the  RSX-llM  compatibility  mode;  see  Table 
2-1.  You  may  use  these  particular  options  only  for  the  purpose  of 
downline  loading  to  a  PDP-11  RSX-llM  target  system. 


NOTE 

In  the  following  procedure,  references 
to  floppy  diskettes  also  include  TU58 
diskettes. 


To  prepare  for  installation  of  FORTRAN   IV  on  VAX/VMS   (under   AME), 
proceed  as  follows: 

•  Be  sure  logical  name  SYS$DISK  is  assigned  to  the  disk  that 
contains  the  current  version  of  VAX/VMS,  as  distributed, 
containing  all  updates.  This  disk  also  contains  the  command 
procedure  that  initiates  the  new  installation/update 
procedure.  Note  that  SYS$DISK  need  not  be  (and  if  possible 
should  not  be)  SYS$SYSTEM. 

•  Set  defaults  as: 

UIC  [1,4] 

directory  [SYSUPD] 
Set  these  defaults  in  the  order  shown. 

•  At  the  console  terminal,  type: 

§VMSUPDATE 

You  will  see  the  following  message  text  at  the  terminal: 

T  i^s  command  procedure  performs  VAX /VMS  software  updates  and 
unbundled  software  installations 

During  this  sequence,  the  standard  console  floppy  will  not  be 
pf»«nt  in  the  console  floppy  drive. 

Therefore,  the  system  is  vulnerable  to  power  faj lure  or  other 
fatal  crash.  If  a  system  crash  should  occur  during  this  time  the 
update  sequence  can  be  restarted  at  the  beginning  of  the  first 
IncoBplete  update. 
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Dismount  the  current  console  floppy. 

Please  place  the  first  floppy  of  the  kit  in  the  console  d r i ve . 

Note  that  you  will  receive  a  device-not-mounted  message  if  there  is  no 
floppy  diskette  mounted.  Ignore  this  message  and  place  your  first 
diskette,  labeled  F4/VAX  VMSllMRl,  in  the  diskette  drive. 

As  you  remove  the  standard  diskette,  note  the  direction  it  is  facing: 
diskettes  from  the  distribution  kit  must  be  inserted  in  the  drive  so 
they  face  the  same  direction.  (The  label  is  on  the  front  side  of  the 
diskette.) 

Next  you  will  receive  the  following  query: 

ARE  YOU  READY  TO  CONTINUE? 

If  you  type  N,  the  request  to   put   the   first   kit  diskette   in  the 

console   floppy   drive  and  the  query  are  repeated.   If  you  type  Y,  the 

installation  proceeds  to  copy  the  compiler-build  command  files  and  to 
select  compiler  code  options: 

What  kind  of  code  generation  is  desi  red? 

Enter  one  of  the  codes  shown  below: 

Cope  Option 

THR  Threaded  -  hardware  independent 

EAE  Inline  (Extended  Arithmetic  Element) 

EIS  Inline  (Extended  Instruction  Set) 

FIS  Inline  (Floating  Instruction  Set) 

In  VAX-ll  compatibility  mode,  the  only  form  of  inline  code  support   is 
EIS. 

Any  other  response  causes  the  following  message  to  appear: 

Invalid  value  for  this  option,  please  reenter  one  of 
(THR,  EAE,  EIS,  FIS) . 

After  this  phase  is  completed,  you  receive  the  message: 

Please  put  the  second  floppy  disk  (VMSllFORA)  J_n  the  drive. 

Are  you  ready  to  continue? 

Place  diskette  VMSllFORA  in  the  drive.   When  you  are  ready  to  proceed, 
type  Y.   The  following  message  appears: 

The  compiler  object  library  must   be   copied   and   the   compi ler 
task-built.   This  will  take  approximately  20  minutes. 

Completion  of  these  procedures  is  indicated  by  the  message: 

P^'ase  put  the  third  floppy  disk  (VHSllFORB)  in   the  drive. 

Are  you  ready  to  continue? 

Place  diskette  VMSllFORB   In   the   drive.    When   you   are   ready   to 
continue,  type  y.   You  will  now  be  queried  about  OTS  options. 
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OTS  options  include: 
1. 


OTS  Listing  -  The  FORTRAN  IV  OTS  can  either  be  generated  as  a 
separate  library: 

[SYSLIBJFOROTS.OLB 

or  be  Included  in  the  standard  VAXAMS  RSX-llM  system 
library: 

[SYSLIBJSYSLIB.OLB 

If  you  intend  to  incorporate  the  OTS  into  SYSLIB.OLB,  obtain 
a  fresh  copy  of  SYSLIB  from  the  operating  system  distribution 
kit.  OTS  modules  cannot  be  added  to  a  library  contairing  a 
previous  version  of  the  OTS. 


NOTE 

The  FORTRAN  OTS   library   contains   224   (no  VIRTUAL 

support)   /235   (VIRTUAL  support)  modules  and  825  (no 

VIRTUAL  support)  /922  (VIRTUAL  support)  entry  points. 


2. 


Do  you  want  the  OTS  included  in  SYSLIB.OLB? 

If  you  want  the  OTS  to  be  in  the  standard  library,  type  Y; 
if  you  want  it  to  be  a  separate  library,  type  N. 

Installations  that  wish  to  conserve  main  memory  and  that  have 
many  FORTRAN  pvograms  will  find  it  useful  to  build  a  FORTRAN 
IV  OTS  resident,  library.  A  MACRO-11  source  file  (FORRES. MAC) 
is  included  as  part  of  the  distribution  kit  to  help  in  this 
regard.  FORRES. MAC  is  located  on  diskette  VMSllMRl,  in 
directory  [SYSUIPD]  .  This  file  contains  global  references  to 
all  modules  of  the  OTS  and  documentation  on  logical  groups  of 
OTS  modules. 

Refer  to  the  RSX-llM/M-PLUS  Task  Builder  Manual  for 
information  on  building  a  FORTRAN  OTS  shareable  library. 

^  Configuration  -  The  following  messages  indicate  that 
you  «..  ^oose  a  hardware  configuration  from  among  those 
listed: 


OTS   can   be   configured   for   any   of   the 


The  FORTRAN     

following  h-,    re  optionsT 

HND  2  No  sj^cii    hardware 

EAE  -  EAE  hardwaic 

EIS  -  EIS  hardware 

FIS  2  FIS  hardware 

FPU  2  FPU  hardware 

Please  enter  the  three-character  mnemonic  for  the   desired 
hardware.   What  OTS  hardware  opTion  do^^u  want? 
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If  you  respond  with  anythin^j  except  one  of  these  codes,   you 
will  receive  the  message: 

Invalid  value  for  this   option,   please   re-enter   one   of 
(NHD,  EAE,  EIS,  FIS,  FPU) . 

VAX-11   compatibility  mode   supports  NHD,    EIS,    or    FPU 
configurations.   Please  refer  to  Table  2-1  for  selection. 

As  the  OTS  is  being  configured,  you  /ill  receive  the  message: 

The  entry  point  $ERTXT  will  be  deleted  as  part  of  the  OTS 
EUTlTT^ ^ 

This  message  requires  no  response.   It  is  informational  only. 

If  you  receive  an  error  message  indicating  that  the   OTS  was 
not  installed,  refer  to  Section  4.2  for  more  information. 

3.  VIRTUAL  array  option  -  VIRTUAL  arrays  are  supported  on 
systems  that  support  memory  management  directives  —  that  is, 
on  target  RSX-llM  systems.  You  can  include  VIRTUAL  array 
support  by  responding  Y  to  the  query: 

Do  you  want  VIRTUAL  array  support  Ui  the  OTS? 

Respond  N  if  you  do  not  want  this  option. 

Finally,  you  are  asked,  as  follows,  to  indicate  whether   you   want   to 
delete  any  previous  versions  of  FORTR\N  IV: 

This  procedure  created  new  versions  of  the  FORTRAN   IV   compiler 
ana~OTS.  — 

You  can  keep  or  delete  older  versions. 

Do  you  want  to  delete  older  versions? 

To  retain  previous  versions,  type  N;   to  delete  them,   type  Y.    This 
completes  the  installation  of  FORTRAN  IV.   You  will  receive: 

"RE  THERE  MORE  KITS  TO  PROCESS?   [Y/N] 

Your  reply  should  b*  N;   the  following  message  will  then  appear: 

Pl**»«  place  the  system  console  floppy  in  the  console  drive. 

You  should  immediately  restore  the  standard  console  diskette   to   the 
console  drive.   Next,  you  will  receive  the  following  query: 

ARE  YOU  RE£  _  TO  CONTINUE? 

If  you  type  Y,  the  console  floppy  diskette   is  automat  ca My  mounted 
and  you  receive  the  following  message: 

Requested  update  sequence  is  corplete. 

Finally,  after  Installing,  you  should  back  up  the  volume  SYSSDISK   and 
save  the  otiginal  for  future  updates. 
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4.2   ALLOCATING  BPT  AND  HNT  ENTRIES  IN  SYSLIB 

The  FORTRAN  IV  GTS  may  not  install  because  of  insufficient  numbers  of 
EPT  or  MNT  entries  in  SYSLIB. 

If  OTS  installation  fails,  you  can  use  the  Librarian  Utility  Program 
(LBR)  to  verify  the  number  of  EPT  or  MNT  entries. 

Type  the  followi-g  command  to  use  LBR: 

$  MCR  LBR  SYS$LIBRARY:SYSLIB/LI 

The  system  responds  with  a  listing  of  both  the  allocated  and  available 
EPT  and  MNT  entries  for  SYSLIB.  You  can  verify  that  the  necessary 
number  of  entrias  for  the  FORTRAN  OTS  is  greater  than  the  available 
entries  in  S'^SLIB. 

If  SYSLIB  has  an  insufficient  number  of  entries,  then  SYSLIB  must  be 
compressed  by  LBR  with  more  entries.  Type  the  following  command  to 
compress  SYSLIB: 

$  *iCR    LBR  SYS$LIBRARY:SYSLIB/CO:  X.  :Y.«SYS$LIBRARY:SYSLIB 


The  number  (in  decimal)  of  EPT  entries, 


The  number  (in  decimal)  of  MNT  entries 


Refer   to  the  RSX-llM/M-PLUS   Utilities   Manual    for   additional 
information  on  how  to  use  the  Compress  Switch  (/CO)  in  LBR. 
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The  FORTRAN  IV  kit  includes  a  test  program  (PORTST.PTN)  to  verify 
proper  operation  of  the  installed  system.  The  execution  of  this 
program  is  self-explanatory. 


5.1   RSX-llM  AND  RSX-llM-PLUS  SYSTEMS 

If  the  FORTRAN  IV  OTS  is  part  of  SYSLIB,  type  the  following  commands: 

>SET  /UIC»[l,l] 

>FOR  FORTST»FORTST 

>RUN  $TKB 

TKB> FORTS T= FORTS T 

TKB>// 

>RUN  FORTST 

If  the  EAE  version  is  used  with  FORTRAN  IV  as  the  default,  replace  the 
command 

TKB> FORTST" FORTST 

with  the  command 

TKB> FORTST/ EA» FORTST 

If  the  FPP  version  is  used  with  FORTRAN  IV  as  the  default,  replace  the 
command 

TKB>FORTST«FORTST 

with  the  command 

TKB> FORTST/ FP»FORTST 

If  the  FORTRAN  IV  OTS  is  in  a  separate  library,   type  the   following 
commands: 

>SET  /UIC-(l,l) 

>FOR  FORTST-FORTST 

>RUN  $TKB 

TKB>FORTST»FORTST,FOR0TS/LB 

TKB>// 


>RUN  FORTST 
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If  the  EAE  version  is  used  with  the  separate  OTS  library,  replace  the 
command 

TKB>FORTST=FORTST, FOROTS/LB 

with  the  command 

TKB>FORTST/EA=FORTST, FOROTS/LB 

If  the  FPP  version  is  used  with  a  separate  OTS  library,  replace  the 
command 

TKB>  FORTST"FORTST , FOROTS/LB 

with  the  command 

TKB>FORTST/FP»FORTST, FOROTS/LB 

If  the  test  does  not  execute  successfully,  check  for  an  error  in  the 
installation.  Correct  the  error  by  rebuilding  the  compiler  or  OTS  as 
necessary. 


5.2   VJVX/VMS  UNDER  AMB 

The  FORTRAN  IV  kit  includes  a  test  program,  FORTST.FTN,  to  verify 
proper  operation  of  the  installed  system.  The  execution  of  this 
program  is  self-explanatory. 

If  the  FORTRAN  IV  OTS  is  part  of  SYSLIB,  type  the  following  commands: 

$  MCR  FOR  FORTST»FORTST 
$^  MCR  TKB  FORTST=FORTST 
f  RUN  FORTST 

If  the  FORTRAN  IV  OTS  is  in  a  separate  library,  type  the  following 
commands: 

$  MCR  FOR  FORTST-FORTST 

$  MCR  TKB  FORTST-FORTST, [SYSLIB] FOROTS/LB 

$^  RUN  FORTST 

If  the  test  does  not  execute  successfully,  check  for  an  error  in  the 
installation.  Correct  the  error  by  rebuilding  the  compiler  or  OTS  as 
necessary. 


5-2 


APPENDIX  A 
COMPILER  BUILD  FT  .E  LISTINGS 


This  appendix  presents  sample  listings  of  the  compiler-build  files  for 
the  following  systems:  RSX-llM  (mapped  and  unmapped),  RSX-llM-PLUS, 
and  VAX/VMS  under  AME.  These  listings  ar<  useful  in  selecting 
compiler   options   and    for   editing   purposes. 


A.l   RSX-llN  -  UNMAPPED 

i:i»50iF0R/-CP/  MMfLl»303FOR/-SP=Clf20]rORllM/Mr 

FOR  FRAN  IKf    COMPILER  TASK  BUILD  FILF 

FOR  V02.6,  RSX-llM  UNMAPPED  SYSTEMS 

TASK  NAME 
TASK-. . .FOR 

nUILD  FOR  PARTITION  GEN»  WHICH  MUST  BE  AT  LEAST  8K 

AR  GEN 

SP  STACK  SIZE 

STACK  MUST  BE  AT  LEAST  150  WORDS 

TACK- 150 

COMPILER  LOGICAL  UNIT  ASSIGNMENTS 


i 

> 
1 
* 

» 

UNITS--= 
ASG  1  T 

1  - 

2  ■- 

3  - 
4 

5  • 

(OMMAND  INPUT 
COMMAND  OUTPUT 
•HDJ  OUTPUT 
a.  ST  OUTPLIT 
.FIN  INPUT 

rr- 

* 

1:2 

TASK  SIZE  FOR  <:,YSTEM  CONTROLLED  PARTITIONS 

THE  FOLLOWING  EXTTSK  SETS  THE  COMPILER  DEFAULT  SIZE  TO  8K  WORDS. 
IF  A  LARGER  COMPILER  IS  REQUIREDr  THE  EXTTSK  MAY  BE  INCREASEDr 
OR  THE  COMPILER  MAY  BE  INSTALLED  WITH  THE  /EXTEND  SWITCH. 

EXTTC>K^1000 

.  NUMBER  OF  LINES  PER  LISTING  PAGE 
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COMPILER  BUILD  PILE  LISTINGS 


THE  FOLLOWING  GBLPAT  CONTROLS  THE  NUMBER  OF  LINES  PER  LISTING  PAGE 

IHF  VALUE  SPECIFIED  FOR  THE  PATCH  IS  THE  NUMBER  OF  LINES 

PFR  PAGE  riESIRED*  MINUS  1. 

liEFAULT  VALUE  IS  OOOOVQO)  -  56.  -  57.  LINES  PER  PAGE. 

UBL  PAT  "^  ROUT  ,  $LNMAX  :  O0007O 

DEFAI'I  I  SWITCH  TFTTINGS  ( SWITCH  WORD  1  )  '    , 

THE  GLBPAl  WHK  P  FOLI  OWS  ALLOWS  THE  DEFAULT  SWITCH  SETTINGS  K OR 
THE  COhPlltR  TO  BE  SET.   THE  VALUE  SPECIFIED  FOR  THE  PATCH  IS 
IMF  LOGICAL  OR  OF  THE  INDIVIDUAL  SWITCH  SETTINGS  DESIRED. 


i 

f 

f 

V 

f 
f 


SWITCH 
NAME 


LI 


SWITCH 
SETTING 


VALUE  TO  "OR"  INTO  PATCH 


/Li:SRC  </Lin)  000001  listing  of  source  I  ROfiRAM 

niihAf  (/Li:;:)  ooooo:>  listing  of  stokagi    maf 

/Ll.COn  <,  .IJM>  0^0004  listing    tir  ULNERAUIi    i'SlUE 

/LJ,'Al.l  ('1.117)  000007 


ku 

Sri 

I  > 

<5P 

ill 

14 

DE 

VA 

WR 


/I  i 

'RO 
/    RO 


/  SN 
/    SN 

/EX 
/   EX 

/BP 
/  -SP 

/Dl 


/I4 
/-I4 

/Dc; 

/-DE 

/VA 
/- VA 

/WR 

/■    WR 


000000 

O0';;o:»o     (jFnerate  rfam  oni  r  pv.n  ts 

000000 


'.'00000 
000200 

000400 
000000 

001000 
000000 


STATkhLNl      rRAi.T.    ON    PRRORS 


ACCFPI     GO    (.(JL;>.    0|-     INfUl 
(RATHER    THAN    7'J     f    SEft    FIEiIm 


SPOOl     IISUNI,    GUI  CUT 


OO^OOO  ENAKl  t     DlAGNOSrjC    MUnL    V  (U< 
OOOOOO         COMPltJ.R    CRA'llEi:, 

004000  ALLOCAft     2    WORD;;    10    IN  TfGrP 
OOOOOO         VAR<.    fiY    DfFAULI 

020000  COMPII  I      IirDUG    Llt4L~. 
000«>0<' 


OOOOOO 
040000 

OOOOOO 
100000 


VECTOR  ARRAYS 

PRINT  WARNING  DIAGNOSTICS 


THE  VAIUE  CALCULATED  FOR  THE  OPTIONS  DESIRED  MUST  BE  'OR'ED  WITH 
i    000010(8.  TO  YIELD  THE  VALUE  FOR  THE  PATCH  (I.E.,  THE  40(H)  BIT 
f  MUST  BE  SET  IN  FHE  ♦SIDEF  WORD). 

IHE  DEFAULT  VAlUEr  001043(8>r  IS  THE  EQUIVALENT  OF: 
*   /Li:3/-R0/SN/-EX/SP/-DI/-I4/-DE/VA/WR 


bBLPAT--F  root:  $lilDEF: 001 04.T 
» 

;  DEfAUir  SWITCH  SETTINGS  (SWITCH  WORD  2) 
f 

.  lui    ^nil'r.^tl"'^'"  ''OLl-OWS  ALLOWS  THE  DEFAULT  SWITCH  SETTINGS  FOR 

THE  COMPIUR  TO  BE  SET.   THE  VALUE  SPECIFIED  FOR  THE  PATCH  IS 
j  THE  LOGICAL  OR  OF  THE  INDIVIDUAL  SWITCH  SETTINGS  DESIRED. 


• 
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COMPILER  BUILD  FILE  LISTINGS 

SWITCH 

SWITCH 

^^^           NAME 
9 

SETTING          VALUE  TO  "OR"  INTO  PATCH 

t         CD 

/CDJTHR          000000   GENERATE  THREADED  CODE 

/CDJEAE 

/cd:eis 
/en: FIG 


000002  GENERATE  EAE  INLINE  CODE 
000004  GENERATE  EIS  INLINE  CODE 
000014   GENERATE  FIS+EIS  INLINE  CODE 


LQ 


/ID 
/  -LO 


000000   LOG  PROGRAM  UNIT  NAMES  ON  TERMINAL 
040000   DO  NOT  LOG  PROG  NAMES  ON  TERMINAL 


.  THt:  Vi^LUF  CALCULArED  f  OR  THE  OPTIONS  DESIRED  MUST  BE  "OR'ED  WITH 

y  017700(8)  TO  flEU'  Tllf  VALUE  FOR  THt  PATCH  (l.E.»  THE  017700(8)  BITS 

V  riUSl  F!E  SKI  IN  THE  *S2i;iEE  WORD). 

iHi:  JiEFiMJLI  'v'ALUt  r  (>.:7700-B>»  IS  THE  EQUIVALENT  OF  t 

*      .«;:n 'IMS'/I  0 

'  hi  lYt  T-^f  ^Vi>      $S?Df  E  :  017700 


A. 2   RSX-llM  AND  RSX-llM-PLUS  -  MAPPED 

C  1  »S43EQK'/-  CP  MM.  1 1  r  ,14:iEnR/MA/CR/  SP  ^t  1  r  IMJEORl  IM/MP 
■  t- OR  I  RAN  TV  COMPILER  TASK  PUILD  FILE 


y  r  OR  V02.6,  MAPPED  RSX  U.M  AND  RSX  I.  IM  PLUS  SYSTEMS 

i 

A 

f 

;  TASK  ^yAMi-: 


TA'.K--,  .  .FOR 

f    SUILIi  FOR  PARTITION  GENr  WHICH  MUST  BE  AT  LEAST  8K 

PAK  GEN 
f 

»  SP  STACK  SI7.E 

»  STACK  MUSi  BE  Al  I  EAST  ISO  WORDS 

* 

STACK-:150 


»    »OH*-iil-K    Liiiiit^Ai.     uN  i  I    ASij*(»NiiEi4TG 


1  ~  LUMMANU  J.NPUI 

2  -  COMMAND  OUTPUT 

3  -  .OBJ  OUTPUT 

4  -  .1ST  OUTPUT 

5  -  .FTN  INPUT 


i 
I 

> 

* 

UNITS=^5 

ASG«=Ti:i:2      • 

t    TASK  SIZE  FOR  SYSTEM  CONTROLLED  PARTITIONS 

* 

»  THE  FOLLOWING  EXTTSK  SETS  THE  COMPILER  DEFAULT  SIZE  TO  8K  UORPS . 

i    IF  A  LhRGER  CUMPlLtK  lb  RtUUlRED*  THE  EXTTSK  MAY  BE  INCREASEDr 

I  OR  THE  COMPILER  MAY  BE  INSTALLED  WITH  THE  /INC  SWITCH. 

I 
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EXTTSK=1000 

NUMBER  OF  LINES  PER  LISTING  PAGE 

i    THE  FOLLOWING  GBLPAT  CONTROLS  THE  NUMPFR  OF  LINES  PER  LISTING  PAGE. 
THE  VALUE  SPECIFIED  FOR  THE  PATCH  IS  THE  NUMBER  OF  LINES 
PER  PAGE  DESIREDf  MINUS  I. 
DEFAULT  VALUE  IS  000070(8)  =  56.  =  57.  LINES  PER  PAGE. 

GBLPAT=FROOT : SLNMAX : 000070 

DEFAULT  SWITCH  SETTINGS  (SWITCH  WORD  1) 

THE  GLBPAT  WHICH  FOLLOWS  ALLOWS  THE  DFFAULT  tjWITCH  SETTINGS  FOR 
THE  COMPIIER  TO  BE  SET.   THt  VALUE  SPECIFIED  FOR  THE  PATi  M  IS 
THE  lOGICAL  OR  OF  THE  INDIVIDUAL  SWITCH  SETTINGS  DESIRED. 


i 
» 
i 
f 
I 
I 
I 

» 
I 
I 
» 
I 
I 
I 
I 
I 
> 
I 
I 
I 
I 
I 
• 
* 
I 
f 
I 
• 
I 
I 
# 
f 
I 
I 
» 
I 
I 
I 
• 


SWIK.H 
NAME 


LI 


SWITCH 
SETTING 


/LirSRC  (/LI 

/LIZMAP  (/LI 

/LirCOD  (/LI 

/LI:ALL  (/LI 
/-LI 


VALUE    TO    'OR'     INTO    PATCH 


:i ) 

:2) 
:4) 
:7> 


000001 
000002 
000004 
000007 
000000 


I  I  STING    or    SOtiRCr     PPOCiRrtn 
L  ISTING    OF     •  TUKAGI     MAF 
LISTING    OF    GlHtFvATtD    f  OHF 


14 


/RO 
/-RO 

/SN 
/-SN 

/EX 
/-EX 

/SP 
/-8P 

/DI 


/I4 
/-I4 

/DE 
/-DE 

/VA 
/-VA 

/UR 
/-MR 


THE  VALUE  CALCULATED  FOR  T 
000040(B)  TO  YIELD  TH7  VAL 
NJST    BE    SET    IN    THE    •SIDEF 

TME    DEFAULT    WAt  IJE  .    O01043( 
/LI Ji/-RO/SW/-EX/SP/ 


000020 
000000 

000000 
000200 

000400 
000000 

001000 
000000 

002000 
000000 

004000 

oooooo 

020000 

oooooo 
oooooo 

040000 

oooooo 

1 00000 

HE  OPTIONS 
UF  FOR  THE 
WORD;. 

6>»  IS  THE 
-DI/- I4/-DE 


GENERATE    READ -ONI  Y    PSECTS 


STATEMENT     TRACE    ON    fRR0'?8 


AC»FPT    80    rOI  '5.    OF    INPUT 
(RATHER    THAN    72    ♦    SEP    F Ifc L D 

SPOOl     LISTING    OUTPUT 


FNABt  F    niAGNOSTir     MMUF    FOR 
COMPILER    CRASH!  S 

ALLOCATE    2    WORDS    TO    INTKifF- 
VARS    Bt    m  FAUl  T 

C OMP 1 L E     Ut BUG    LI Nfc ' > 


VECTOR    ARRAYS 


PRINT    WARNING    DIAGNOSTICS 


DESIRED    MUST    PE    'OR'ED    WITH 
PATCH    (I.E.*    THt    40(8>    BIT 


lOUIVAlENT    OF: 
/VA/WR 


GDLPAT-fR0Ot-«SlDCF:0OlO4S 
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CONPILeR  BOILO  PILE  LISTINGS 


J  DtTAULT  SWITCH  SETTINGS  (SWITCH  WORD  2) 


i    THE  GLBPAT  WHICH  FOLLOWS  ALLOWS  THE  D:  .  AULT  SWITCH  SETTINGS  FOR 
;  THE  COKFILER  TO  BE  SET.   THE  VAl UE  SPECIFIED  FOR  THE  FATCH  IS 
i    THE  LOGICAL  OR  OF  THE  INDIVIDUAL  SWITCH  StfTINGS  DESIRED. 


e» 


;  SWITCH 

i      ^V^«E 
i -•■ 

I 

r 
{ 
I 
I 

9 


to 


SWITCH 

SETTING 

/cn: THR 

/rri:i  af 

/r.ii:tis 

/f  ii:fis 

/LO 

/-I  •) 

VALUE  TO  'OR'  INTO  PATCH 


000000  GENERATE  THREADED  CODE 

000002  GENERATE  F AE  INI  INE  CODE 

000004  GENERATE  EIS  INLINE  CODf 

000014  GENLRAIE  KIS+EIS  INI  INL  CODE 


000000   LOG  PRGfiRAM  UNIT  NAMf  S  ON  \':  '  i    I NAL 
04()000   DO  NUI  LOG  PROG  NAhES  ON  TEKrtiNAL 


»    fHE  v^Ainp   i;ai  t:ui  All  II  rriR  thl  opttonf.  desered  host   i  f   'OR-EP  wi    « 

;    OJ'^'OOtf.'     TO    Yirif'    IHF    VALUF     f  or    the    PAiCH    tl.f...    THt    01/700v8)     .'    TS 

.    ri  A- •     Hk     SET     IN    THf     ♦^>.l'FF    WilFD). 

r 

.     IML     DEFAUI  T    VAJ  UF  .     Ol7;'00<e.'r     IS     THE    tUUlVALENI     OF! 

I  /CD:THR    l(i 

J 

nitLPAi^FRooj  :»Si'nEi  :oi77oo 


A. 3   VAX/VMS  UNDER  AME 

':  s  vsr  ;<E  ir  or  .  e  <  e  /  r;  p  =  f  gr  hi  d  -  mp 
i,ihi\Hh  ;v/  (ohFiLEf*   tAjN   bi'iiD  file 


f    rOF    V02.4'     J«.<'VMS    SYSTtMb 

J 

t 

U'.'oK    MAht 

T.*«K-=  .  ,    FOR 

i    bUU.     IDF    PAFIinON    GE»J»    WHICH    MUST    BE    AT    LEAST    8K 

t 

r-Mp-^GiN 

.    ^f  r.  fAfh   51 71" 

'  SFhCL  MUSI  BE  AT  LEAST  150  WORDS 

&:ACK  150 

f  C'>HFfLEK  LOGICAl  UNIT  AGSIGNMENTS 

1  -^  COMMAND  INPUT 

•  ?    -    COMMAND  OUTPUT 
I        3  -  .OBJ  OUTPUT 

T'      4  -  .LST  OUTPUT 

•  5  -  .FTN  INPUT 
» 

UNITS=5 
ASG'Ti:i:2 

* 

r 

>  TASK  SIZE 
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COMPILER  BUILD  PILE  LISTINGS 


THE  FOLLOWING  EXTTSK  SETS  THE  COMPILER  DEFAULT  SIZE  TO  28K  WORDS. 
IF  A  LARGER  COMPILER  IS  REQUIRED,  THE  EXTTSK  MAY  BE  INCREASED. 

EXTTSK=18208 

NUMBER  OF  LINES  PER  LISTING  PAGE 

THE  FOLLOWING  GBLPAT  CONTROLS  THE  NUMBER  OF  LINES  PER  LISTING  PAGE. 

THE  VALUE  SPECIFIED  FOR  THE  PATCH  IS  THE  NUMBER  OF  LINES 

PER  PAGE  DESIREDf  MINUS  1. 

DEFAULT  VALUE  IS  000070(8)  --^    56.  =    ?7.  LINFE;  f  ER  PAGE. 

OBLPAT-F  ROOT : $LNMAX : 000070 

DEFAULT  SWITCH  SETTINGS  (SWITCH  WORD  1) 

THE  GLBPAT  WHICH  FOLLOWS  ALLOWS  THE  DEFAULT  SWITCH  SETTINGS  U)f- 
THE  CONPII  ER  TO  BE  SET  ►   THE  VALUE  SPECIFIED  FOR  THt  PAItH  IS 
THE  LOGICAL  OR  OF  THE  INDIVIDUAL  SWITCH  SETTINGS  DtSlRPn. 


CUITCH 
NAME 


LI 


SWITCH 
SETTING 


VALUE  TO  "OR"  INTO  PATCH 


/Li:SRC  (/Li:i)  000001  listing  of  SOUfVCE  PkOGFvAM 

/LIIMAP  (/Li:2'  000002  LISTING  Of  STORAGE  MAF 

/Li:COD  (/LIM)  000004  LISIIN(i  OF  bf  Nl  RATt H  CODF 

/LIIALL  (/Li:7)  00000' 


RO 


SN 


EX 


DI 


14 


DE 


VA 


WR 


/-LI 

/RO 
/-RO 

/SN 
/-SN 

/EX 
/-EX 

/SP 
/-SP 

/DI 


/I4 
/-I4 

/DE 
/-DE 

/VA 
/- VA 

/WR 
/-WK 


000000 

000020 
000000 

000000 
000200 

000400 
000000 

001000 
000000 


GF.NERATE  R£.Hri  flNlY  PStCTS 


STATEMENT  TKACF  ON  ERRORS 


ACCEPT  00  CniS.  OF  INPUT 
(RATHER  THAN  '2  +  SEQ  HELD) 

SPOOL  LISTING  OUTPUT 


002000   ENABLE  DIAGNOSTIC  MODE  FOR 
000000    COMPILER  CRASHES 


004000 
000000 

020000 
000000 


ALLOCATE  2  WORDS  TO  INTEGER 
VARb  Br  DEFAULT 

COMPILE  DEBUG  LINES 


000000   VECTOR  ARRAYS 
C  40000 

000000   PRINT  WARNING  DIAGNOSTICS 
100000 


i 
I 
i 

» 

i    THE  VALUE  CALCULATED  FOR  TF^E  OPTIONS  DESIRED  MUST  BE  'OR'ED  WITH 
»  000040(8)  TO  YIELD  THE  VALUE  FOR  THE  PATCH  (I.E.,  THE  40(8)  BIT 
»  MUST  BE  SET  IN  TF^E  $S1DEF  WORD). 

i 

'     THE  DEFAULT  VALUEr  000043(8),  IS  THE  EQUIVALENT  OF: 

i  /Li:3/ -R0/SN/-EX/-SP/-DI/-I4/-DE/VA/WR 

t 

GBLPAT^FROOT  J  tSlDEF : 000043 
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APPENDIX  B 
FORTRAN  IV  V2.6  RELEASE  NOTES 


B.l   COMPILER  RESTRICTIONS 

The  FORTRAN  IV  V2.6  compiler  has  the  following  restrictions;  these 
restrictions  represent  highly  contextual  problems,  illustrated  here  by 
specific  examples.  Where  feasible,  patches  and  autopatches  will  be 
supplied  in  the  future  to  lift  these  restrictions.  A  workaround  is 
suggested  for  each  restriction. 


1. 


2. 


generate   incorrect 


Problem  statement:    The  compiler  will 
inline  code  for  the  following  program: 

BYTE  L 
I=L/10 
J=L-I*10 
END 


Cause:   The  register-allocation  phase  of  the  compiler  assigns 
the  wrong  register  for  the  division. 

Workaround: 

BYTE  L 

J=L-L/10*10 

END 


generate   incorrect 


Problem  statement:   The  compiler  will 
inline  code  for  the  following  program: 

DIMENSION  A(10) ,K(10) ,L(10) ,M(10) 
COMMON  A,K,L,M 
DO  10  I-1,N 
J-I+Kl 
A(I)-A(J) 
K(I)-K(J) 
L(I)-L(J) 
M(I)-M{J) 
10  CONTINUE 
END 


Cause:   The  code-generation  phase  of  the  compiler  assigns   to 
a   compiler  a   temporary   register  already   in  use,  without 


saving  the  register's  contents. 
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Workaround: 

DIMENSION  A(10) ,K(10) ,L(10) ,M(10) 

COMMON  A,K,L,M 
;   DO  10  I-1,N 

J-I+Kl 

K(I)«K(J) 

L(I)-L(J) 

M(I)»M(J)  t 

A(I)-A(J) 
10  CONTINUE 

END 

Problem  statement:   The  compiler  will  abort  If  the  Inline  FIS 
code  option  Is  selected  for  the  following  program: 

SUBROUTINE  X(D) 

COMMON  C{5)  ,S(5) 

DIMENSION  D(5) 

DO  10  I-1,N 

C(I)«S(I) 

DO  20  J-1,I 
20  D(K)*D(J) 
10  CONTINUE 

K«K/2 

D(l)-D(2) 

RETURN 

END 

Cause:   There  Is  a  problem  In  the  register-allocation  phase 
of  the  compiler. 

Workaround:   Put  array  D  In  COMMON. 

Problem  statement:   The  compiler  will  abort  If  the   following 
program  Is  entered: 

DO  10  1-1,3000*1000 
10  CONTINUE 
END 

Cause:   The  loop-optlmlzatlon  phase  of  the  compiler  tries  to 
evaluate  the  trip  count  but  falls  due  to  overflow. 

Workaround:   Avoid  using  Illegal  values  as  DO  parameters. 

Problem  statement:    The  compiler   will   Issue  the   error 
■MISSING  DELIMITER  IN  EXPRESSION*  for  the  following  program: 

WRITE(5,100)  {(I-N)/N)*2 
100  FORMAT (1 2) 
END 

Cause:   The  I/O  expression  analyzer  parses   the  expression 
Incorrectly. 

Workaround: 

WRITE(5,100)  2*((I-N)/N) 
100  FORMAT (12) 
END 
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Problem  statement:  Inconsistency  in  a  logical  operation; 
the  value  of  I  will  be  "177600  and  the  value  of  J  will  be 
"200  in  the  following  program: 

BYTE  B 

DATA  B/"200/ 

I«B.AND."377 

J«"376.AND.B 

END 


Cause:  In  FORTRAN  IV,  if  the  second  operand  of  an  operation 
is  an  octal  constant,  the  data  type  of  the  operand  is  decided 
by  the  data  type  of  the  first  operand  of  the  operation. 
Since  B  is  a  BYTE  variable,  "377  is  entered  into  the  symbol 
table  as  a  BYTE  constant  and  the  operation  is  carried  out  at 
byte  level;  and  when  the  result  of  the  operation  is  assigned 
to  I,  it  is  sign  extended.  However,  "376  is  entered  into  the 
symbol  table  as  an  integer  constant;  therefore,  B  is  sign 
extended  when  loaded  into  a  register  before  the  operation. 

Workaround:   Assign  "377  to  an  integer  variable. 

Problem  Statement:   When  a  computed  GOTO  statement   variable 

exceeds  the  count  of  16383,  the  generated  inline  code  for  the 

statement  causes  an  overflow  error.  This  error  will  cause 
the  program's  execution  to  abort. 


Cause:   Generated  inline  code  does   not   check   for   overflow 
error. 


10. 


Workaround:   Compile  using  threaded  code  option. 

Problem  statement:  Lowercase  logical  input  generates 
run-time  conversion  errors. 

Cause:  The  FORTRAN  IV  run  time  or  OTS  will  not  accept 
lowercase  input. 

Workaround:   Use  uppercase  characters  for  logical  input. 

Problem  statement:  The  compiler  will  not  accept  a 
non-expression  as  a  DO  loop  component.   For  example: 

DO  60  1-11,12, (2,1) 

Cause:  The  compiler  expects  an  expression  to  be  inside  the 
parentheses  and  does  not  realize  that  there  is  none  until  it 
tries  to  compute  the  expression. 

Workaround:   Use  valid  expressions  for  DO  loop  components. 

Problem  statement:   The  compiler  generates  a  fatal  error  when 

an  INTEGER  variable  is  used  as  an  array  index,  and  later  as  a 

DO  loop  counter,  and  the  body  of  the  loop  contains  an  ASSIGN 
statement. 


Cause:   The  compiler  does  not  know  how  to  process  the   ASSIGN 
statement  in  this  case. 

Workaround:   Do  not  use  the  same  variable  as  an   array   index 
and  Do  loop  counter. 
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II. 


IP  a  BLOCK  data  variable  name  exceeds  six  characters, 
fictional  line  code  is  generated  beyond  the  END  statement.  A 
TKB  error  results. 


Workaround:  Do  not  use 
exceeds  six  characters. 


a  BLOCK  data  variable  name  that 


12. 


13. 


Problem  Statement:   Incorrect  results  occur  when  comparing  an 
INTEGER  variable  to  a  floating-point  constant. 


Workaround:   Assign  the  floating-point   constant 
floating-point  variable. 


to 


Problem  Statement:   I   comments  at  the  end  of  statements  are 
misaligned  in  the  generated  listing  file. 

Workaround:  Do  not  insert  tabs  on  these  comment  lines. 


B.2   OTS  RESTRICTION 

Library  subroutine  ERRSNS  returns  zero  values  for  the  last  three 
parameters  if  the  error  is  not  a  file  open  error. 


B.3   MISCELLANEOUS 


1.   Calling  the  FORTRAN  compiler   using  MCR   in   the   following 
example  will  cause  a  null-length  object  file  to  be  created: 

MCR  FOR  ABC.FTN 

or   ^ 


MCR>  FOR  ABC.FTN 

Using  an  equal  sig..  in  front  of  the  source  file  will   avoid 
the  following: 


MCR  FOR  -ABC.FTN 

or 
MCR>  FOR  -ABC.FTN 

2.  The  following  specifications  produce  a   list   file  of  zero 
blocks  with  extension  .FTN.: 

DCL>   FOR  /OBJ: :ddnn:file  ddnn:f ile.ftn 
MCR:  ddnn:file,-ddnn:file.ftn 

Workaround:   Do  not  specify  the  device  name. 

3.  Only  uppercase  characters  are  accepted   in  OPEN  statement 
keyword  values. 
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